home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / CRKUTIL1.DSK / COPYB START.bas < prev    next >
BASIC Source File  |  2014-09-09  |  4KB  |  68 lines

  1. 5  HOME : TEXT : VTAB 10: HTAB 13: INVERSE : PRINT "*** COPYB ***": NORMAL : VTAB 13: PRINT "   DO YOU WANT INSTRUCTIONS? (Y/N) ";: GET A$
  2. 10  IF A$ = "N"  THEN 20
  3. 15  GOSUB 100
  4. 20  PRINT : PRINT "<CTRL-D>RUN COPYB"
  5. 30  PRINT "$365   869 RESET SECTOR#   0F     (3)"
  6. 100  HOME : PRINT "COPYB IS A MODIFIED VERSION OF COPYA"
  7. 110  PRINT "WHICH WORKS LIKE DEMUFFIN PLUS,"
  8. 120  PRINT "EXCEPT THAT IT CONVERTS ON A TRACK AND"
  9. 130  PRINT "SECTOR RATHER THAN A FILE BASIS."
  10. 140  PRINT : PRINT "IT WILL NOT TURN YOU INTO MR. XEROX"
  11. 150  PRINT "OR LONG-JOHN SILVER, BUT IT WILL EASE"
  12. 160  PRINT "THE DRUDGERY OF CONVERTING A DISK "
  13. 170  PRINT "WHICH USES A MODIFIED SET OF RWTS"
  14. 180  PRINT "ROUTINES BUT DOESN'T USE DOS FILE": PRINT "STRUCTURE."
  15. 190  PRINT : PRINT "THE THEORY OF OPERATION IS SIMPLE:"
  16. 200  PRINT "USE THE MODIFIED RWTS FROM THE "
  17. 210  PRINT "PROTECTED DISK TO READ IN A FEW TRACKS,"
  18. 220  PRINT "THEN SWAP IN THE RWTS FROM DOS 3.3 AND"
  19. 230  PRINT "WRITE THE TRACKS OUT IN NORMAL DOS 3.3"
  20. 240  PRINT "FORMAT."
  21. 250  GOSUB 1000
  22. 260  PRINT "UNLESS OTHERWISE INSTRUCTED, THE"
  23. 270  PRINT "PROGRAM WILL INITIALIZE THE DESTINATION"
  24. 280  PRINT "DISK, PLACE DOS 3.3 ON TRACKS 0-2,"
  25. 290  PRINT "AND COPY TRACKS $03-22 FROM SECTOR": PRINT "$0F TO SECTOR 0 ON EACH TRACK."
  26. 300  PRINT "THE TABLE BELOW SHOWS THE LOCATIONS": PRINT "THAT ARE CHANGED FOR DIFFERENT": PRINT "ARRANGEMENTS."
  27. 310  PRINT : PRINT " HEX   DEC   USE         NORMAL  NOTES"
  28. 315  PRINT "-----  ---   ---------   -----   -----"
  29. 317  PRINT 
  30. 320  PRINT "$22E   558 FIRST TRACK #   03     (1)"
  31. 325  PRINT "$236   566 FIRST SECTOR #  0F     (2)"
  32. 330  PRINT "$365   869 RESET SECTOR #  0F     (3)"
  33. 335  PRINT : PRINT "NOTES:"
  34. 340  PRINT " (1) CHANGE TO 01 FOR NON-DOS DISKS."
  35. 345  PRINT " (2) CHANGED TO 0C FOR 13-SECTOR DISKS."
  36. 350  PRINT " (3) CHANGED TO 0C FOR 13-SECTOR DISKS."
  37. 355  GOSUB 1000: PRINT "TO AVOID INITIALIZING THE DESTINATION"
  38. 360  PRINT "DISK, DELETE LINES 246 THROUGH 250 FROM"
  39. 365  PRINT "THE BASIC PROGRAM.": PRINT 
  40. 390  PRINT "MAKE THESE CHANGES THE SAME WAY YOU": PRINT "MODIFY COPYA: RUN COPYB, THEN RESET": PRINT "OR USE CTRL-C TO INTERRUPT. MAKE THE": PRINT "CHANGES AND TYPE 'RUN' (LINE 5 MUST"
  41. 395  PRINT "BE DELETED BEFORE TYPING 'RUN' THE": PRINT "SECOND TIME).": PRINT 
  42. 396  PRINT : PRINT "THE NORMAL GREETING NAME THAT IS PLACED": PRINT "ON THE DESTINATION NAME IS 'XXX'.": PRINT "YOU CAN MODIFY IT BY CHANGING NAME$ IN": PRINT "LINE 242 OF THE COPYB PROGRAM, OR YOU"
  43. 397  PRINT "CAN MODIFY BYTES $75-92 OF TRACK 1,": PRINT "SECTOR 9 WITH THE INSPECTOR TO CONTAIN": PRINT "THE CORRECT GREETING NAME FOR THE DISK."
  44. 399  GOSUB 1000
  45. 400  PRINT "TO USE THE PROGRAM, YOU MUST READ"
  46. 410  PRINT "THE RWTS ROUTINES FROM THE PROTECTED"
  47. 420  PRINT "DISK INTO LOCATIONS $8000-88FF."
  48. 430  PRINT : PRINT "TO DO THIS YOU CAN:"
  49. 440  PRINT "   1. BOOT THE DISK, HIT RESET (OLD"
  50. 450  PRINT "      MONITOR ROM), AND MOVE RWTS WITH"
  51. 460  PRINT "      8000<B700.BFFFM FROM THE MONITOR."
  52. 470  PRINT : PRINT "OR 2. READ TRACK 0, SECTOR 1"
  53. 480  PRINT "      THROUGH TRACK 0, SECTOR 9 INTO"
  54. 490  PRINT "      $8000-88FF WITH THE INSPECTOR."
  55. 500  PRINT : PRINT "THEN BOOT THIS DISK AND RUN"
  56. 510  PRINT "COPYB TO MAKE THE UNPROTECTED COPY."
  57. 520  PRINT : PRINT "THE PROGRAM REQUIRES 48K OF MEMORY. BE"
  58. 530  PRINT "SURE YOU WRITE-PROTECT YOUR ORIGINAL:"
  59. 540  PRINT "THERE ARE NO WARRANTEES, EXPRESSED OR"
  60. 550  PRINT "IMPLIED, ABOUT THE PERFORMANCE OF THIS"
  61. 555  PRINT "PROGRAM."
  62. 600  VTAB 23: PRINT "PRESS ANY KEY TO LOAD COPYB..."
  63. 610  IF  PEEK( -16384) <128  THEN 610
  64. 620  HOME : POKE  -16368,0: RETURN 
  65. 999  RETURN 
  66. 1000  VTAB 23: PRINT "PRESS ANY KEY TO CONTINUE..."
  67. 1010  IF  PEEK( -16384) <128  THEN 1010
  68. 1020  HOME : POKE  -16368,0: RETURN